bscols(widths = c(3, NA),
list(
filter_checkbox("dist", "dist", shared_lw, ~dist, inline=TRUE)
),
plot_ly(data = shared_lw) %>%
add_markers(x = ~dist, y = ~speed)
)
function filter_default() {
document.getElementById("dist").getElementsByClassName("selectized")[0].selectize.setValue("24", false);
}
window.onload = filter_default;